home *** CD-ROM | disk | FTP | other *** search
/ Storm 3: Adam & Eve Portfolio / Storm III - Adam and Eve Portfolio.iso / x / x.bat < prev    next >
DOS Batch File  |  1993-01-28  |  2KB  |  164 lines
  1. @echo off
  2. cls
  3.  
  4. :X1
  5. TYPE 1.ANS
  6. ASK /FE "" ABCDEFGHIJKLMNOPQRSTU123
  7.  
  8. IF ERRORLEVEL 24 GOTO QUIT
  9. IF ERRORLEVEL 23 GOTO SELECTION
  10. IF ERRORLEVEL 22 GOTO X2
  11. IF ERRORLEVEL 21 GOTO 21
  12. IF ERRORLEVEL 20 GOTO 20
  13. IF ERRORLEVEL 19 GOTO 19
  14. IF ERRORLEVEL 18 GOTO 18
  15. IF ERRORLEVEL 17 GOTO 17
  16. IF ERRORLEVEL 16 GOTO 16
  17. IF ERRORLEVEL 15 GOTO 15
  18. IF ERRORLEVEL 14 GOTO 14
  19. IF ERRORLEVEL 13 GOTO 13
  20. IF ERRORLEVEL 12 GOTO 12
  21. IF ERRORLEVEL 11 GOTO 11
  22. IF ERRORLEVEL 10 GOTO 10
  23. IF ERRORLEVEL 9 GOTO 9
  24. IF ERRORLEVEL 8 GOTO 8
  25. IF ERRORLEVEL 7 GOTO 7
  26. IF ERRORLEVEL 6 GOTO 6
  27. IF ERRORLEVEL 5 GOTO 5
  28. IF ERRORLEVEL 4 GOTO 4
  29. IF ERRORLEVEL 3 GOTO 3
  30. IF ERRORLEVEL 2 GOTO 2
  31. IF ERRORLEVEL 1 GOTO 1
  32.  
  33. :X2
  34. TYPE 2.ANS
  35. ASK /FE "" ABCDEFGHIJKL23
  36.  
  37. IF ERRORLEVEL 14 GOTO QUIT
  38. IF ERRORLEVEL 13 GOTO X1
  39. IF ERRORLEVEL 12 GOTO 33
  40. IF ERRORLEVEL 11 GOTO 32
  41. IF ERRORLEVEL 10 GOTO 31
  42. IF ERRORLEVEL 9 GOTO 30
  43. IF ERRORLEVEL 8 GOTO 29
  44. IF ERRORLEVEL 7 GOTO 28
  45. IF ERRORLEVEL 6 GOTO 27
  46. IF ERRORLEVEL 5 GOTO 26
  47. IF ERRORLEVEL 4 GOTO 25
  48. IF ERRORLEVEL 3 GOTO 24
  49. IF ERRORLEVEL 2 GOTO 23
  50. IF ERRORLEVEL 1 GOTO 22
  51.  
  52. :1
  53. VPIC /A XETAR04
  54. GOTO X1
  55. :2
  56. VPIC /A XETAR15
  57. GOTO X1
  58. :3
  59. VPIC /A XETAR_01
  60. GOTO X1
  61. :4
  62. VPIC /A XM6PAK14
  63. GOTO X1
  64. :5
  65. VPIC /A XMUSIC_1
  66. GOTO X1
  67. :6
  68. VPIC /A XMUSIC_2
  69. GOTO X1
  70. :7
  71. VPIC /A XMUSIC_3
  72. GOTO X1
  73. :8
  74. VPIC /A XMUSIC_4
  75. GOTO X1
  76. :9
  77. VPIC /A XNIPA_3
  78. GOTO X1
  79. :10
  80. VPIC /A XNURSE
  81. GOTO X1
  82. :11
  83. VPIC /A XPOSEBLU
  84. GOTO X1
  85. :12
  86. VPIC /A XSEKA30
  87. GOTO X1
  88. :13
  89. VPIC /A XSTEADY1
  90. GOTO X1
  91. :14
  92. VPIC /A XSTEADY2
  93. GOTO X1
  94. :15
  95. VPIC /A XSTEADY3
  96. GOTO X1
  97. :16
  98. VPIC /A XSTEADY4
  99. GOTO X1
  100. :17
  101. VPIC /A XSTEADY5
  102. GOTO X1
  103. :18
  104. VPIC /A XSTEADY6
  105. GOTO X1
  106. :19
  107. VPIC /A XSTEADY7
  108. GOTO X1
  109. :20
  110. VPIC /A XSTEADY8
  111. GOTO X1
  112. :21
  113. VPIC /A XXX003
  114. GOTO X1
  115. :22
  116. VPIC /A XXX004
  117. GOTO X2
  118. :23
  119. VPIC /A XXX005
  120. GOTO X2
  121. :24
  122. VPIC /A XXX006
  123. GOTO X2
  124. :25
  125. VPIC /A XXX007
  126. GOTO X2
  127. :26
  128. VPIC /A XXX008
  129. GOTO X2
  130. :27
  131. VPIC /A XXX026
  132. GOTO X2
  133. :28
  134. VPIC /A XXX029
  135. GOTO X2
  136. :29
  137. VPIC /A XXX030
  138. GOTO X2
  139. :30
  140. VPIC /A XXX031
  141. GOTO X2
  142. :31
  143. VPIC /A XXX032
  144. GOTO X2
  145. :32
  146. VPIC /A XXX033
  147. GOTO X2
  148. :33
  149. VPIC /A XXX116
  150. GOTO X2
  151.  
  152. :SELECTION
  153. CD\SETUP
  154. FSTORM3
  155.  
  156. :QUIT
  157. CD\SETUP
  158. FSTORM3
  159.  
  160.  
  161.  
  162.  
  163.  
  164.